home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
TOT
/
DEMO.EXE
/
arc
/
DEMST3.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-10
|
677b
|
32 lines
program DemoStringThree;
{demST3 - number formatting}
Uses DOS, CRT,
totFAST, totSTR;
Var
Fmt: FmtNumberOBJ;
begin
ClrScr;
with Fmt do
begin
Init;
writeln(FormattedLong(2000,15));
writeln(FormattedReal(2000,2,15));
SetSign(PlusMinus);
writeln(FormattedLong(2000,15));
SetSign(DBCR);
writeln(FormattedReal(2000,3,15));
SetPrefixSuffix('$','');
writeln(FormattedReal(2000,3,15));
SetSeparators('*',',','.');
writeln(FormattedReal(2000,3,15));
SetJustification(JustRight);
writeln(FormattedReal(2000,3,15));
Done;
end;
GotoXY(1,23);
end.